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KK KK EEEEEEEEEE YY YY PPPPPPPP UU UU TITTTTITTT cccccccc HH HH RRRRRRRR 
KK KK EEEEEEEEEE YY YY PPPPPPPP UU UU TTTTTTTTTT CCCCCCCC =H HH RRRRRRRR 
KK ye €€ YY YY PP PP UU UU TT cc HH HH RR RR 
Ke KK EE YY YY PP PP UU UU TT cc HH HH RR RR 
KK KK EE YY YY PP PP UU UU TT CC HH HH RR RR 

ins EE yy YY PP PP UU UU TT cc HH HH RR RR 
KKKKKK EEEEEEEE YY PPPPPPPP UU UU TT CC HHHHHHHHHH RRRRRRRR ; 
KKKKKK EEEEEEEE YY PPPPPPPP UU UU TT cc HHHHHHHHHH RRRRRRRR ; 
ia KK EE YY PP UU UU TT cc HH HH RR RR : 
KK KK EE YY PP UU UU TT cc HH HH RR RR ; 
KK KK EE YY PP UU UU TT cc HH HH RR RR cece ; 
KK KK EE YY PP UU UU TT cc HH HH RR RR cece : 
KK KK EEEEEEEEEE YY PP UUUUUUUUUU TT cccccccc HH HH RR RR coee ; 
KK KK EEEEEEEEEE YY PP UUUUUUUUUU TT cccccccc HH HH RR RR eeee : 
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EDTSKEYPUTCHR = put a character in the command 16-Sep-19 245:4 AX-11 Bliss-32 V4.0-74 
° 16- Sen-1984 99:53:39 EDT.SRCJKEYPUTCHR.BLI; 


: 1 001 pret LE "EDTSKEYPUTCHR = put a character in the command buffer’ 

; ¢ § ULE EDTSKEYPUTCHR ( ' Put a gharecter in the command buffer 
: Z Z ee = 'v04-000' ile: KEYPUTCHR.BLI Edit: 9851005 
P4 = 

; 5 : 5 : BEGIN 

: ? 007 } PITIIITILILILILL LLL LLL LLL LILI Li LiLii iii i itil iii 
$ '@ * 
3 4 009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 10 010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 1 Beit : ALL RIGHTS RESERVED. : 
: ig $018 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE YSED AND COPIED * 
: 14 bois 1 !* ONLY IN ACCORDANCE WITH THE on OF SUCH Tint ig AND WITH THE * 
3 15 015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. rr SOFTWARE OR ANY OTHER * 
; 16 3918 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 17 001 1 !® OTHER peazon NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 18 id : :* TRANSFERRED : 
: st 0020 1 i THE een aa IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 1 0021 1 !* AND SHOULD BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $§ + ¢ : CORPORATION. : ; 
: 4 85 4 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS a 
: i oo 2 : M SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
. 

3 $8 0038 | punebbdibeaubbennnsennnenannatbbebaneneteboecnnebenessssbbeneanesensenenenten 
. i 

i 30 0030 1 

; 1 itd 1 i+ 

i O03¢ 1 { FaciLity: EDT -- The DEC Standard Editor 

: 34 0034 1 | ABSTRACT: 

3 5 0035 1! 

; 4 ones ! Put a character in the command buffer. 

; 38 34 : ENVIRONMENT: Runs at any access mode - AST reentrant 

3 40 9040 1 i AUTHOR: Bob Kushlis, CREATION DATE: April 7, 1979 

; 4¢ Q04g | i MODIFIED BY: 

a 0045 1! 

3 664 ng: 1 ! 1-001 - Original. or 24-Feb-1981. This module was created by 

; 65 5 1! extracti ng routine PUT_COM_CHAR from module KEYTRAN. 

; 646 Bpe$ 1 ! 1-002 - Regularize headers. ~JBS" 10-Mar-1981 

; 647 047 1 ! 1-005 = Use new message codes. JBS 04-Aug-1981 

:; «4348 0048 1! 1-2 4 - Use MSG_BELL for errors. SMB 30-Jun-1982 

: 50 0030 : 1-005 - Improve the appearance of the Listing. JBS 14-Jun-1983 

; «51 051 17 


*eF | 


ites 3¢ oS a be 
EDT. SRCIJKEYPUTCHR.BLI; 
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XSBTTL "EDTSSPUT_CMDCH = put a character in the command buffer’ 
GLOBAL ROUTINE EDTSSPUT_CMDCH ( ! Put a character in the command buffer 
! Character to put 


FORCE_ECHO | T's che the charecter 
) : NOVALUE = 


'o4¢ 


FUNCTIONAL DESCRIPTION: 


This routine places a character in the command buffer at EDTSSA_CMD_BUF and 
advances EDTSSA_CMD_BUF . 


FORMAL PARAMETERS: 
C The character to append to the command buffer. 
FORCE_ECHO 
IMPLICIT INPUTS: 
EDTSST_CMD_BUF 
EDTSSAZCRD-END 
IMPLICIT OUTPUTS: 
EDTSSA_CMD_BUF 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 


If 1, then echo the character. 


BEGIN 

EXTERNAL ROUTINE 
EDTSSMSG_ BELL, 
EDT$$TI_ECHOCH; 

EXTERNA 


EDTS$SA~CMD~BUF 
EDTS$A_CMD~END; 


MESSAGES ((COMBUFEXH)); 


heck to make sure there is room, if not then put out a message and 
lush the entire buffer. 


' Command buffer 
' Pointer to next char in command buffer 
! Pointer to end of info in command buffer 


C 
f 
ie 


IF CHSPTR_EQL (.EDTSSA_CMD_BUF, .EDTSSA_CMD_END) 


Page 
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R = put a character in the command -Sep- 1384 99: 245:4 AX-11 Bliss-32 V4.0-74 Page 4) 
-Sep-1 ) 


E PUTCHR CH EDT! 
vee _CMDCH = put a character in the comman 4 12:23:2 EDT. SRCJKEYPUTCHR.BLI; (3 V4: 


GIN 
TSSMSG_BELL (EDTS COM BUFEXH) 
TS$A_ CAD_BUF = CHSPTR (EDTSS$T_CMD_BUF); 


Echo the character if necessary then move it to the buffer. 


i 


IF .FORCE_ECHO THEN EDTSS$TI_ECHOCH (.C); 
CHSWCHARLA (.C, EDTSSA_CHD_BUF); 
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END; ! of routine EDTSSPUT_CMDCH 


ae 


-TITLE EDTSKEYPUTCHR EDTSKEYPUTCHR = put a character 
: n the command 
-IDENT \v04-000\ 


.EXTRN EDTSSMSG BELL EDTS$TI _ECHOCH 
SEXTRN EDTS$T_CAD_BUF, EDTSSA~CMD_BUF 
“EXTRN EDTSSA~CMD~ -END: EDT$_COMBUFEXH 


ee Se ee ee ee ee ee ee ee ee 


-PSECT _EDTSCODE,NOWRT, SHR, PIC.2 


1 

0004 00000 -ENTRY EDTS$PUT CMDCH, Save R2 : 0658 1 

52 000000006 00 9€ 00002 MOVAB EDTSSA_CAD : 1 

000000006 00 62 01 00009 CMPL EDTS$A_CMD “BUF. EDTS$A_CMD_END 3 0712 1 

15 12 00010 BNEQ 1$ 3 1 

000000006 8F DD 90012 PUSHL #EDTS COMBUFEXH 3 0715 1 

000000006 00 01 FB 3001 CALLS EBTSSMS 3 1 

62 000000006 00 9€E 0001F MOVAB tp tseT _CMD sBore  EDTSSA_CMD_BUF : 0716 1 

04 00026 RET : 0712 1 

OA 08 AC €9 00027 1S: BLBC FORCE_ECHO, 2$ 3 0724 1 

04 AC DD 00028 PUSHL : 1 

000000006 00 01 FB 000 § CALLS EDTSSTI ECHOCH ; 
50 62 DO 00035 2s: MOVL EDtSSA CMD_GUF , : 0726 

60 04 AC 90 00038 MOVB # ; 1 

62 06 0003C INCL ESTSSA. CMD_BUF : 1 

04 0003E RET : 0729 


; Routine Size: 63 bytes, Routine Base: _EDTSCODE + 0000 


1 
1 !<BLF/PAGE> 
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CHR = put a character in the command ihese Sep-19 


Size: 63 code + 0 data bytes 
T 00:09.9 


Elapsed Ttaee 00:12.2 
Lines/CPU Min: 4471 
Lovenee/e-Mies 13742 
poe | Used: 61 pages 
Compilation Complete 


EDTSKEYPUTCHR EDTSKEYPUT 74 AX-11 Bliss-32 V4.0-7 Pa 
iba 060 EDTSSPUT_CMDCH = put a character in the comman 10 308-138e 93: 33:39 EDT. SRCIKEYPUTCHR: BL: “4 
: 193 O78 ! END ! of module EDTSKEYPUTCHR 

; 165 734 0 ELUDOM 

: PSECT SUMMARY 

; Name Bytes Attributes 

: -EDTSCODE 63 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

: Library Statistics 

; cosnsens Syebel§ eccescce Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28: EOT Sac ERT baer t 377 2 0 40 00:00.2 

; 255$DUA28: LEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 

: COMMAND QUALIFIERS 

; PIELER OK? SELB. SET ER, OPT EAE EE) /HOTRACEBACEAS 298 LEDER WOU TEMN IER I9OR IS HEE VPI CM MSRC$:KEYPUTCHR.BLI/UPDATE=(ENHS:K 
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